#!/usr/bin/perl

use warnings;
use strict;
use Test::More tests => 4;
use lib 't/testlib';
use MyOther;

use MyExport 'doubler';

is(doubler(42), 84, 'basic usage');
my $coderef = \&doubler;
is($coderef->(99), 198, 'called via coderef');

is(MyOther->double_42, 84, 'called directly in other package');
is(MyOther->double_42_via_cref, 84, 'called via coderef in other package');

